{\rtf1\ansi \deff0{\fonttbl{\f0\froman Times New Roman;}{\f1\fswiss Arial;}}{\colortbl \red0\green0\blue0;}{\stylesheet{\s0\cf0\lotusoutlinelevel0 Text;}{\s1\cf0\sa277\lotusoutlinelevel0 Text Abstand;}{\s2\cf0\lotusoutlinelevel0 \li288 Markierung;}
{\s3\cf0\lotusoutlinelevel0 \li576 Markierung 1;}{\s4\cf0\lotusoutlinelevel0 \li720\fi-3 Nr. Liste;}{\s5\fs20\cf0\b\i\sb72\sa72\lotusoutlinelevel2 Unter Titel;}{\s6\f1\fs36\cf0\b\qc\sb144\sa72\lotusoutlinelevel1\keep\keepn Titel;}}\ftnbj \paperw11905\paperh16838 \margl1440 \margr1440 \sectd {\footer \pard\plain \s0\cf0\lotusoutlinelevel0 
\par }\pard\plain \s0\cf0\lotusoutlinelevel0 FUNCTION toRTF()
\par ' saves an opened AmiPro document to RTF format
\par 
\par ' defstr OLDNAME, NEWNAME, i
\par 
\par ' OLDNAME=GetOpenFileName$()
\par ' OLDDIR=GetCurrentDir$()
\par 
\par ' Message("Oldname is \{OLDNAME\}")
\par 
\par 
\par ' LEFT$(\{OLDNAME\}, 0)
\par 
\par ' SaveAs("c:\\TESTMACR.RTF", 1 , "", "RTF")
\par 
\par i="001"
\par 
\par for i = 1 to 9
\par    FileOpen("c:\\amipro\\docs\\tdiff00\{i\}.sam", 1, "")
\par    Pause (20)
\par    SaveAs("c:\\TDIFF00\{i\}.RTF", 1 , "", "Rich Text Format")
\par    FileClose()
\par next   
\par 
\par for i = 10 to 99
\par    FileOpen("c:\\amipro\\docs\\tdiff0\{i\}.sam", 1, "")
\par    Pause (20)
\par    SaveAs("c:\\TDIFF0\{i\}.RTF", 1 , "", "Rich Text Format")
\par    FileClose()
\par next   
\par 
\par for i = 100 to 213
\par    FileOpen("c:\\amipro\\docs\\tdiff\{i\}.sam", 1, "")
\par    Pause (20)
\par    SaveAs("c:\\TDIFF\{i\}.RTF", 1 , "", "Rich Text Format")
\par    FileClose()
\par next   
\par 
\par 
\par 
\par END FUNCTION
\par \par}